(* Content-type: application/vnd.wolfram.mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 12.1' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[     31469,        794]
NotebookOptionsPosition[     21520,        591]
NotebookOutlinePosition[     22252,        616]
CellTagsIndexPosition[     22173,        611]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[TextData[{
 "New in: ",
 Cell["1.0", "HistoryData",
  CellTags->"New",ExpressionUUID->"fd6b9bf8-a383-4470-9d86-cdbc4d07a7df"],
 " | Modified in: ",
 Cell[" ", "HistoryData",
  CellTags->"Modified",ExpressionUUID->"e5d0f913-9ea8-47d0-9b3d-3b3a5d6d9c54"],
 " | Obsolete in: ",
 Cell[" ", "HistoryData",
  CellTags->"Obsolete",ExpressionUUID->"aa5decad-17f4-4313-bb01-28d0ad0ff844"],
 " | Excised in: ",
 Cell[" ", "HistoryData",
  CellTags->"Excised",ExpressionUUID->"e4f775fb-22c2-4f21-b36e-4b137b4a5a97"]
}], "History",
 CellChangeTimes->{{3.826056593385528*^9, 3.8260565936159153`*^9}},
 CellID->1247902091,ExpressionUUID->"515018d2-b2ec-4dfa-90bd-a5470c366f41"],

Cell[CellGroupData[{

Cell["Categorization", "CategorizationSection",
 CellID->1122911449,ExpressionUUID->"03f0b429-feeb-4cdf-8429-c98bbc5f44c1"],

Cell["Symbol", "Categorization",
 CellLabel->"Entity Type",
 CellID->686433507,ExpressionUUID->"67c87d80-c74c-4e93-a58c-10ad62fce45c"],

Cell["RefpropLink Package", "Categorization",
 CellLabel->"Paclet Name",
 CellID->864087751,ExpressionUUID->"0ca59cce-880a-4ae9-828d-c2fd52eedc4c"],

Cell["RefpropLink`", "Categorization",
 CellLabel->"Context",
 CellID->267161933,ExpressionUUID->"4bf4d9a5-de65-47d6-b6e5-747d29b3fe34"],

Cell["RefpropLink/ref/critp", "Categorization",
 CellLabel->"URI",
 CellID->419268119,ExpressionUUID->"7be8e861-78e5-4603-83ac-aba58e572606"]
}, Closed]],

Cell[CellGroupData[{

Cell["Keywords", "KeywordsSection",
 CellID->477174294,ExpressionUUID->"5734d4db-e9de-431e-af7e-e17a48772282"],

Cell["Mixture", "Keywords",
 CellChangeTimes->{{3.8260566013841414`*^9, 3.826056603764776*^9}},
 CellID->1164421360,ExpressionUUID->"744711af-579e-4eaa-9ade-aaa97edaf6ab"],

Cell["Critical Point", "Keywords",
 CellChangeTimes->{{3.8260566013841414`*^9, 3.826056610028036*^9}},
 CellID->602059826,ExpressionUUID->"9b6c7fb4-65f9-40d3-a240-e86496e076d0"],

Cell["Critical Parameters", "Keywords",
 CellChangeTimes->{{3.8260566013841414`*^9, 3.826056631074755*^9}},
 CellID->6698891,ExpressionUUID->"ce77ece0-77f7-48ea-a18a-351cb72a4950"],

Cell["Saturation", "Keywords",
 CellChangeTimes->{{3.8260566013841414`*^9, 3.826056650563646*^9}},
 CellID->24705039,ExpressionUUID->"72348e6d-1c94-4c6a-8115-790093e7c84a"],

Cell["Spline", "Keywords",
 CellChangeTimes->{{3.8260566013841414`*^9, 3.826056652896409*^9}},
 CellID->252641630,ExpressionUUID->"aeaa565b-fcea-44ac-aabb-b7ef0958772e"]
}, Closed]],

Cell[CellGroupData[{

Cell["Syntax Templates", "TemplatesSection",
 CellID->1872225408,ExpressionUUID->"f6ebbb7f-0171-4148-beea-70258d37ce61"],

Cell[BoxData[""], "Template",
 CellLabel->"Additional Function Template",
 CellID->1562036412,ExpressionUUID->"c35b7501-fedf-4c46-8fd7-2cbce70b30f6"],

Cell[BoxData[""], "Template",
 CellLabel->"Arguments Pattern",
 CellID->158391909,ExpressionUUID->"ad9e725e-95fb-4837-b2c6-89052b55b040"],

Cell[BoxData[""], "Template",
 CellLabel->"Local Variables",
 CellID->1360575930,ExpressionUUID->"fc1f91dd-4cd0-4fca-87cc-a3bd9daa9b0a"],

Cell[BoxData[""], "Template",
 CellLabel->"Color Equal Signs",
 CellID->793782254,ExpressionUUID->"b40e5d62-ff95-4773-8df6-c9468495eea2"]
}, Closed]],

Cell[CellGroupData[{

Cell["Details", "DetailsSection",
 CellID->307771771,ExpressionUUID->"00b6ad75-0ed8-488a-815a-9659e41b6a0c"],

Cell["Patrick Fourspring", "Details",
 CellChangeTimes->{{3.8260566607035704`*^9, 3.826056663871066*^9}},
 CellLabel->"Lead",
 CellID->670882175,ExpressionUUID->"fd89ef1e-8676-41fd-98fc-5629d1d6dbfb"],

Cell["Jeff Henning", "Details",
 CellChangeTimes->{{3.8260566676240606`*^9, 3.826056669151944*^9}},
 CellLabel->"Developers",
 CellID->350963985,ExpressionUUID->"7989b311-b189-4def-a2dd-dc0bdaf5e5c2"],

Cell["Jeff Henning", "Details",
 CellChangeTimes->{{3.826056672183861*^9, 3.826056673976046*^9}},
 CellLabel->"Authors",
 CellID->8391405,ExpressionUUID->"003448c0-c1b6-40c9-8e04-6220e10a48b7"],

Cell["XXXX", "Details",
 CellLabel->"Feature Name",
 CellID->3610269,ExpressionUUID->"4a3b9987-5a4c-4875-8a45-35587751c0fe"],

Cell["XXXX", "Details",
 CellLabel->"QA",
 CellID->401364205,ExpressionUUID->"77cf4199-73b2-439e-b5c9-190d17adef95"],

Cell["XXXX", "Details",
 CellLabel->"DA",
 CellID->350204745,ExpressionUUID->"9616c2d0-2631-4632-bcb0-1a436dcc5508"],

Cell["XXXX", "Details",
 CellLabel->"Docs",
 CellID->732958810,ExpressionUUID->"1d85366f-6ae5-4bff-ac61-c6b50f91f234"],

Cell["XXXX", "Details",
 CellLabel->"Features Page Notes",
 CellID->222905350,ExpressionUUID->"2ddfe4ec-6414-4f7c-bd1f-03601360cc8e"],

Cell["XXXX", "Details",
 CellLabel->"Comments",
 CellID->240026365,ExpressionUUID->"2abb0ffb-acf5-420a-8af6-38afbf85fadb"]
}, Closed]],

Cell[CellGroupData[{

Cell["critp", "ObjectName",
 CellID->1224892054,ExpressionUUID->"723c421a-d2e1-4d52-8c4f-d5f948dea8b2"],

Cell[TextData[{
 Cell["   ", "ModInfo",ExpressionUUID->"ab536fed-75e2-4381-ac0e-ad8ba9e509bf"],
 Cell[BoxData[
  RowBox[{"critp", "[", 
   StyleBox["z", "TI"], "]"}]], "InlineFormula",ExpressionUUID->
  "6e579877-74b4-4f40-a55b-b3d2017e856f"],
 "\[LineSeparator]calculates the critical mixture parameters as a function of \
molar composition."
}], "Usage",
 CellChangeTimes->{{3.8260565353038273`*^9, 3.8260565397918267`*^9}, {
  3.826056574080147*^9, 
  3.826056581240032*^9}},ExpressionUUID->"3448cde2-467b-495b-a64b-\
0db4e42f78fe"],

Cell["\<\
Calculate critical parameters as a function of composition. The critical \
parameters are estimates based on polynomial fits to the binary critical \
lines. For 3 or more components, combining rules are applied to the \
constituent binaries.\
\>", "Notes",
 CellChangeTimes->{{3.826056825545787*^9, 3.8260568345916214`*^9}, {
  3.829024867643584*^9, 3.8290248794031453`*^9}},
 CellID->518458683,ExpressionUUID->"71545df0-c623-4d14-8ea7-f2949e9fbc22"],

Cell["\<\
If SATSPLN has been called and the input composition sent here is the same as \
that sent to SATSPLN, the values calculated from the splines are returned, \
which are nearly exact.  During the call to SATSPLN, the true critical point, \
maximum pressure point, and maximum temperature point along the saturation \
lines are determined.  Without the splines and for a system with three or \
more components, the values from this routine are only rough estimates.\
\>", "Notes",
 CellChangeTimes->{{3.8260568643609953`*^9, 3.8260568934961214`*^9}},
 CellID->662563063,ExpressionUUID->"4e9cdae2-81e7-4d3b-bbf2-dda0302c703c"],

Cell[TextData[{
 Cell[BoxData[
  StyleBox["z", "TI"]], "InlineFormula",ExpressionUUID->
  "fb23bcbc-1494-43a3-9e5e-a369402dcfbd"],
 " is the molar composition of the mixture, passed as a List of mole \
fractions.  It must match the composition used to call SATSPLN (",
 Cell[BoxData[
  ButtonBox[
   StyleBox["satspln",
    FontWeight->"Bold"],
   BaseStyle->"Link",
   ButtonData->"paclet:RefpropLink/ref/Satspln"]], "InlineFormula",
  ExpressionUUID->"33bd0b8f-ba00-4e87-b613-3806bb65fd75"],
 " function)."
}], "Notes",
 CellChangeTimes->{{3.826056911592707*^9, 3.8260569624407487`*^9}, {
   3.826056998703819*^9, 3.826057032912322*^9}, 3.831447567066928*^9},
 CellID->598962227,ExpressionUUID->"e8f2210a-4335-47d8-8b98-bac7af4fa035"],

Cell["\<\
Return values are the critical temperature, Tc [K], critical pressure, Pc \
[K], and critical density, Dc [mol/L].  These values are returned in a ruled \
list as quantities with units, unless the SuppressUnits option is passed as \
True.\
\>", "Notes",
 CellChangeTimes->{{3.8314476180435767`*^9, 3.8314477407972383`*^9}},
 CellID->484568108,ExpressionUUID->"a6f9b37b-a169-464b-960c-4ec8a78a38dc"],

Cell["The following options can be given: ", "Notes",ExpressionUUID->"412f4263-9b1a-4c30-a202-d00a1a19ed08"],

Cell[BoxData[GridBox[{
   {Cell["      ", "ModInfo",ExpressionUUID->
     "a4ed1667-c0fc-4566-b48c-72eb64eb8a07"], 
    StyleBox["Option",
     FontWeight->"Bold"], 
    StyleBox[
     RowBox[{"Default", " ", "Value"}],
     FontWeight->"Bold"], Cell[TextData[StyleBox["Description",
     FontWeight->"Bold"]], "TableText",ExpressionUUID->
     "60f39baa-ebe5-4ebe-bb98-4fe7f91b5350"]},
   {Cell["   ", "ModInfo",ExpressionUUID->
     "e5e8827b-d376-41c7-b587-e017078cb9ab"], 
    ButtonBox["SuppressUnits",
     BaseStyle->"Link"], 
    ButtonBox["False",
     BaseStyle->"Link"], Cell[
    "If True, suppresses units on output values.", "TableText",ExpressionUUID->
     "8eb3c69c-8149-4bff-9ce2-8162a2fbd2e5"]}
  }]], "3ColumnTableMod",
 CellChangeTimes->{{3.824275726492803*^9, 3.824275731380762*^9}, {
  3.824275838545097*^9, 3.824275883335326*^9}, {3.82427608123298*^9, 
  3.824276081328727*^9}},
 CellID->552757875,ExpressionUUID->"7a8c05ae-8eec-410f-9d66-b408363f55cb"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Tutorials", "TutorialsSection",
 CellID->250839057,ExpressionUUID->"be1d1757-55ea-470f-9e44-83d2b5849767"],

Cell[TextData[ButtonBox["RefpropLink Implementation",
 BaseStyle->"Link",
 ButtonData->"paclet:RefpropLink/tutorial/Implementation"]], "Tutorials",
 CellChangeTimes->{{3.8314473432822914`*^9, 3.8314473890448866`*^9}},
 CellID->23511089,ExpressionUUID->"ffc00b17-e70c-4eae-a8cf-322d9e003cfa"],

Cell[TextData[ButtonBox["RefpropLink Units",
 BaseStyle->"Link",
 ButtonData->"paclet:RefpropLink/tutorial/Units"]], "Tutorials",
 CellChangeTimes->{{3.8314473432822914`*^9, 3.831447346570524*^9}, {
  3.8314474082405453`*^9, 3.8314474084190655`*^9}},
 CellID->189380923,ExpressionUUID->"0e073265-a9a5-4263-a7fb-cc7c064a792b"],

Cell[TextData[ButtonBox["Pure Fluids (Legacy API)",
 BaseStyle->"Link",
 ButtonData->"paclet:RefpropLink/tutorial/PureFluidsLegacyAPI"]], "Tutorials",
 CellChangeTimes->{{3.829558291402774*^9, 3.829558303402691*^9}, {
  3.829558341260483*^9, 3.8295583414499683`*^9}},
 CellID->341631938,ExpressionUUID->"dcd328b5-1e39-46b3-a5b3-ac78d02b6169"],

Cell[TextData[ButtonBox["Mixtures (Legacy API)",
 BaseStyle->"Link",
 ButtonData->"paclet:RefpropLink/tutorial/MixturesLegacyAPI"]], "Tutorials",
 CellChangeTimes->{{3.829558291402774*^9, 3.8295583216578856`*^9}, {
  3.829558353292308*^9, 3.8295583534847927`*^9}},
 CellID->339404089,ExpressionUUID->"6f9febab-f9da-4d71-a732-81635550c5b5"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Related Demonstrations", "RelatedDemonstrationsSection",
 CellID->1268215905,ExpressionUUID->"6e8fc908-4386-44ec-a9e1-a6a0be3ac930"],

Cell["XXXX", "RelatedDemonstrations",
 CellID->1129518860,ExpressionUUID->"8f43bc21-ed4a-40c4-a813-992cf3f64d24"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Related Links", "RelatedLinksSection",
 CellID->1584193535,ExpressionUUID->"b0e40b65-22f4-4ec4-96b7-50d731a2f37b"],

Cell["XXXX", "RelatedLinks",
 CellID->1038487239,ExpressionUUID->"e4cabe40-4cfa-44a3-aca8-86a189660de2"]
}, Open  ]],

Cell[CellGroupData[{

Cell["See Also", "SeeAlsoSection",
 CellID->1255426704,ExpressionUUID->"6a115fc7-07e4-442e-ac0a-0fe40ae9b86b"],

Cell[TextData[{
 Cell[BoxData[
  ButtonBox["satspln",
   BaseStyle->"Link",
   ButtonData->"paclet:RefpropLink/ref/satspln"]], "InlineFormula",
  ExpressionUUID->"82eade06-e5de-4785-9e64-9963f434bf2c"],
 " \[EmptyVerySmallSquare] ",
 Cell[BoxData[
  ButtonBox["maxp",
   BaseStyle->"Link",
   ButtonData->"paclet:RefpropLink/ref/maxp"]], "InlineFormula",
  ExpressionUUID->"2b9082df-5700-4417-a3e8-4aa5155c5df7"],
 " \[EmptyVerySmallSquare] ",
 Cell[BoxData[
  ButtonBox["maxt",
   BaseStyle->"Link",
   ButtonData->"paclet:RefpropLink/ref/maxt"]], "InlineFormula",
  ExpressionUUID->"d214b0b6-7f44-4088-af99-3dfdbb4ecc7d"]
}], "SeeAlso",
 CellChangeTimes->{{3.8260567224663935`*^9, 3.8260567469439445`*^9}},
 CellID->929782353,ExpressionUUID->"371cf3a1-d5e8-4c62-a618-be9d3b42d0e6"]
}, Open  ]],

Cell[CellGroupData[{

Cell["More About", "MoreAboutSection",
 CellID->38303248,ExpressionUUID->"0e06e99b-ef53-4eb8-befb-563f48d63a90"],

Cell["XXXX", "MoreAbout",
 CellID->1665078683,ExpressionUUID->"d57da4a8-c919-4160-b491-7433c430d620"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[GridBox[{
    {
     StyleBox["Examples", "PrimaryExamplesSection"], 
     ButtonBox[
      RowBox[{
       RowBox[{"More", " ", "Examples"}], " ", "\[RightTriangle]"}],
      BaseStyle->"ExtendedExamplesLink",
      ButtonData:>"ExtendedExamples"]}
   }],
  $Line = 0; Null]], "PrimaryExamplesSection",
 CellID->880084151,ExpressionUUID->"52e5621c-26e0-4fdd-9cc1-4fd0384c3d8a"],

Cell["Load a mixture and composition.", "ExampleText",
 CellChangeTimes->{{3.831447799323694*^9, 3.831447812298988*^9}},
 CellID->492948770,ExpressionUUID->"4a6e9b5e-fdc0-4f39-a699-22f4cf72dbda"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"{", 
    RowBox[{"hFluids", ",", "z"}], "}"}], "=", 
   RowBox[{
    RowBox[{"setmix", "[", "\"\<AMARILLO.MIX\>\"", "]"}], "[", 
    RowBox[{"[", 
     RowBox[{"All", ",", "2"}], "]"}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.8314478519140267`*^9, 3.8314478698121843`*^9}, 
   3.8314479264297433`*^9},
 CellLabel->"In[9]:=",
 CellID->263768457,ExpressionUUID->"89bd660b-c8e7-4e19-80f2-870999a17420"],

Cell["Display returned values in a Table", "ExampleText",
 CellChangeTimes->{{3.831447963884534*^9, 3.831447971107212*^9}},
 CellID->290971360,ExpressionUUID->"91230332-2378-4392-b626-0208717b9444"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"TableForm", "[", 
  RowBox[{"Transpose", "[", 
   RowBox[{"{", 
    RowBox[{"hFluids", ",", "z"}], "}"}], "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.831447981642036*^9, 3.831447988874689*^9}},
 CellLabel->"In[10]:=",
 CellID->236291625,ExpressionUUID->"aa8c5160-9f3b-4396-9e4b-e0d5c30ef2c6"],

Cell[BoxData[
 TagBox[GridBox[{
    {"\<\"METHANE\"\>", "0.906724`"},
    {"\<\"NITROGEN\"\>", "0.031284`"},
    {"\<\"CO2\"\>", "0.004676`"},
    {"\<\"ETHANE\"\>", "0.045279`"},
    {"\<\"PROPANE\"\>", "0.00828`"},
    {"\<\"ISOBUTAN\"\>", "0.001037`"},
    {"\<\"BUTANE\"\>", "0.001563`"},
    {"\<\"IPENTANE\"\>", "0.000321`"},
    {"\<\"PENTANE\"\>", "0.000443`"},
    {"\<\"HEXANE\"\>", "0.000393`"}
   },
   GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
   GridBoxSpacings->{"Columns" -> {
       Offset[0.27999999999999997`], {
        Offset[2.0999999999999996`]}, 
       Offset[0.27999999999999997`]}, "Rows" -> {
       Offset[0.2], {
        Offset[0.4]}, 
       Offset[0.2]}}],
  Function[BoxForm`e$, 
   TableForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{3.8314479916133633`*^9},
 CellLabel->"Out[10]//TableForm=",
 CellID->99595348,ExpressionUUID->"2dcd797c-b4f6-4376-a949-c6c1143b83d0"]
}, Open  ]],

Cell["\<\
Call satspln to create algebraic splines through the saturation curves and \
evaluate the critical point and maximums.\
\>", "ExampleText",
 CellChangeTimes->{{3.831448004139886*^9, 3.8314480762350197`*^9}},
 CellID->154406767,ExpressionUUID->"acff1127-e353-4759-91d1-993141e69238"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"satspln", "[", "z", "]"}]], "Input",
 CellChangeTimes->{{3.8314480872565393`*^9, 3.831448092634156*^9}},
 CellLabel->"In[11]:=",
 CellID->92311424,ExpressionUUID->"18d1493d-0e27-49d0-b74b-6fe61441c526"],

Cell[BoxData[
 TemplateBox[{
  "satspln", "splines", 
   "\"INFO: Successfully created mixture phase boundary splines.\"", 2, 11, 2,
    33622560337115630957, "Local", "RefpropLink`satspln"},
  "MessageTemplate2"]], "Message", "MSG",
 CellChangeTimes->{3.831448101565306*^9},
 CellLabel->"During evaluation of In[11]:=",
 CellID->446650481,ExpressionUUID->"4c730447-7d7c-416f-a5ef-8b77289d76c0"]
}, Open  ]],

Cell["\<\
Evaluate the critical point values for the mixture composition sent to \
satspln.\
\>", "ExampleText",
 CellChangeTimes->{{3.8314481474355793`*^9, 3.831448186722519*^9}, {
  3.8314483313775716`*^9, 3.8314483544977317`*^9}},
 CellID->118617733,ExpressionUUID->"d4a23074-905e-41a7-929d-84f9cc7868f5"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"critp", "[", "z", "]"}]], "Input",
 CellChangeTimes->{{3.8314481186226425`*^9, 3.8314481309626355`*^9}, {
  3.83144828716284*^9, 3.831448287645545*^9}},
 CellLabel->"In[14]:=",
 CellID->883086245,ExpressionUUID->"424aa97a-28bd-41ad-9c58-003d22f26b8f"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\(T\\), \\(C\\)]\\)\"\>", "\[Rule]", 
    TemplateBox[{"204.93825920062955`", "\"K\"", "kelvins", "\"Kelvins\""},
     "Quantity"]}], ",", 
   RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\(P\\), \\(C\\)]\\)\"\>", "\[Rule]", 
    TemplateBox[{
     "6052.414717422105`", "\"kPa\"", "kilopascals", "\"Kilopascals\""},
     "Quantity"]}], ",", 
   RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\(D\\), \\(C\\)]\\)\"\>", "\[Rule]", 
    TemplateBox[{"11.449549535247035`", 
      RowBox[{
       "\"mol\"", "\[InvisibleSpace]", "\"/\"", "\[InvisibleSpace]", 
        "\"L\""}], "moles per liter", 
      FractionBox["\"Moles\"", "\"Liters\""]},
     "Quantity"]}]}], "}"}]], "Output",
 CellChangeTimes->{3.831448136961623*^9, 3.831448366692113*^9},
 CellLabel->"Out[14]=",
 CellID->81755183,ExpressionUUID->"e019f114-3ed9-4cb1-9075-13d5ad374203"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["More Examples", "ExtendedExamplesSection",
 CellTags->"ExtendedExamples",
 CellID->1854448968,ExpressionUUID->"1bc9c754-0891-4819-b0a7-0d284b6b7964"],

Cell[BoxData[
 InterpretationBox[Cell[
  "Scope", "ExampleSection",ExpressionUUID->
   "37d0701f-f110-4a37-adb0-baa32caf157d"],
  $Line = 0; Null]], "ExampleSection",
 CellID->1293636265,ExpressionUUID->"04c246cb-24ce-45af-bcda-c1def297a00b"],

Cell[BoxData[
 InterpretationBox[Cell[
  "Generalizations & Extensions", "ExampleSection",ExpressionUUID->
   "02186b2f-b5ed-4f67-9e5a-ae3745041c2d"],
  $Line = 0; Null]], "ExampleSection",
 CellID->1020263627,ExpressionUUID->"05fe0327-86d3-4ce5-85db-34908b5eca39"],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "Options", "ExampleSection",ExpressionUUID->
   "b2b31ddd-60dc-4aee-a419-1b9fb3facc92"],
  $Line = 0; Null]], "ExampleSection",ExpressionUUID->"ba85a77d-8fc2-4a16-\
97d6-793c32c50f77"],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "RefpropLink`Private`SuppressUnits", "ExampleSubsection",ExpressionUUID->
   "d5a895c1-4460-43d4-b799-399488902f02"],
  $Line = 0; Null]], "ExampleSubsection",ExpressionUUID->"ddc7ca7e-da51-4eb9-\
a67d-3fd0bf558304"],

Cell["\<\
Make the same call as in the example above, but with the SuppressUnits option \
set to True.\
\>", "ExampleText",
 CellChangeTimes->{{3.8314484541471915`*^9, 3.831448485651929*^9}},
 CellID->20045686,ExpressionUUID->"2f8d7f0b-0abe-423c-b594-d3133b4482b4"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"critp", "[", 
  RowBox[{"z", ",", 
   RowBox[{"SuppressUnits", "\[Rule]", "True"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.831448508598546*^9, 3.831448544001851*^9}, {
  3.831448655369966*^9, 3.8314486569936237`*^9}},
 CellLabel->"In[16]:=",
 CellID->498345333,ExpressionUUID->"27d3773e-c3c9-4bc3-b7a8-2514e121ccb1"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\(T\\), \\(C\\)]\\) [K]\"\>", 
    "\[Rule]", "204.93825920062955`"}], ",", 
   RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\(P\\), \\(C\\)]\\) [kPa]\"\>", 
    "\[Rule]", "6052.414717422105`"}], ",", 
   RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\(D\\), \\(C\\)]\\) [mol/L]\"\>", 
    "\[Rule]", "11.449549535247035`"}]}], "}"}]], "Output",
 CellChangeTimes->{3.8314485455756407`*^9, 3.8314486662757955`*^9},
 CellLabel->"Out[16]=",
 CellID->45103570,ExpressionUUID->"92053f28-dda0-451e-a893-c1110203299a"]
}, Open  ]],

Cell["\<\
Note that the units of the returned values are still provided in the rule.\
\>", "ExampleText",
 CellChangeTimes->{{3.8314485716349664`*^9, 3.8314486122503014`*^9}},
 CellID->111056592,ExpressionUUID->"9d777e29-7db4-4a0c-b701-b8057705eaba"]
}, Open  ]]
}, Open  ]],

Cell[BoxData[
 InterpretationBox[Cell[
  "Applications", "ExampleSection",ExpressionUUID->
   "59bcce12-4be7-476d-afd4-65e72906acef"],
  $Line = 0; Null]], "ExampleSection",
 CellID->258228157,ExpressionUUID->"ad1166b8-1eab-4f7f-a875-64f69e57d013"],

Cell[BoxData[
 InterpretationBox[Cell[
  "Properties & Relations", "ExampleSection",ExpressionUUID->
   "bf809171-923f-4479-a7c4-ab215f04e0a8"],
  $Line = 0; Null]], "ExampleSection",
 CellID->2123667759,ExpressionUUID->"d93ee822-b1c1-4ecd-b89e-792e2367bf55"],

Cell[BoxData[
 InterpretationBox[Cell[
  "Possible Issues", "ExampleSection",ExpressionUUID->
   "16849257-2636-4215-92c1-cbcf0ef11752"],
  $Line = 0; Null]], "ExampleSection",
 CellID->1305812373,ExpressionUUID->"70837883-65d0-43fb-b327-ed197e377ebf"],

Cell[BoxData[
 InterpretationBox[Cell[
  "Interactive Examples", "ExampleSection",ExpressionUUID->
   "23049140-9d28-46e6-9da6-f1395301a7cc"],
  $Line = 0; Null]], "ExampleSection",
 CellID->1653164318,ExpressionUUID->"fbb39539-f2ec-488d-877c-012475cb905f"],

Cell[BoxData[
 InterpretationBox[Cell[
  "Neat Examples", "ExampleSection",ExpressionUUID->
   "18bfec24-9502-4aaf-82af-0bd8c1660133"],
  $Line = 0; Null]], "ExampleSection",
 CellID->589267740,ExpressionUUID->"c87e283b-6ede-4258-8940-83d423bda29c"]
}, Open  ]]
},
WindowSize->{700, 770},
WindowMargins->{{-1406, Automatic}, {Automatic, 13}},
CellContext->"Global`",
FrontEndVersion->"12.1 for Microsoft Windows (64-bit) (June 19, 2020)",
StyleDefinitions->FrontEnd`FileName[{"Wolfram"}, "FunctionPageStyles.nb", 
  CharacterEncoding -> "UTF-8"],
ExpressionUUID->"a39d682b-7a89-4ad9-93fd-673d5da5c78e"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{
 "ExtendedExamples"->{
  Cell[17525, 479, 155, 2, 54, "ExtendedExamplesSection",ExpressionUUID->"1bc9c754-0891-4819-b0a7-0d284b6b7964",
   CellTags->"ExtendedExamples",
   CellID->1854448968]}
 }
*)
(*CellTagsIndex
CellTagsIndex->{
 {"ExtendedExamples", 21979, 604}
 }
*)
(*NotebookFileOutline
Notebook[{
Cell[558, 20, 668, 15, 22, "History",ExpressionUUID->"515018d2-b2ec-4dfa-90bd-a5470c366f41",
 CellID->1247902091],
Cell[CellGroupData[{
Cell[1251, 39, 123, 1, 27, "CategorizationSection",ExpressionUUID->"03f0b429-feeb-4cdf-8429-c98bbc5f44c1",
 CellID->1122911449],
Cell[1377, 42, 134, 2, 31, "Categorization",ExpressionUUID->"67c87d80-c74c-4e93-a58c-10ad62fce45c",
 CellID->686433507],
Cell[1514, 46, 147, 2, 31, "Categorization",ExpressionUUID->"0ca59cce-880a-4ae9-828d-c2fd52eedc4c",
 CellID->864087751],
Cell[1664, 50, 136, 2, 31, "Categorization",ExpressionUUID->"4bf4d9a5-de65-47d6-b6e5-747d29b3fe34",
 CellID->267161933],
Cell[1803, 54, 141, 2, 31, "Categorization",ExpressionUUID->"7be8e861-78e5-4603-83ac-aba58e572606",
 CellID->419268119]
}, Closed]],
Cell[CellGroupData[{
Cell[1981, 61, 110, 1, 17, "KeywordsSection",ExpressionUUID->"5734d4db-e9de-431e-af7e-e17a48772282",
 CellID->477174294],
Cell[2094, 64, 171, 2, 17, "Keywords",ExpressionUUID->"744711af-579e-4eaa-9ade-aaa97edaf6ab",
 CellID->1164421360],
Cell[2268, 68, 177, 2, 17, "Keywords",ExpressionUUID->"9b6c7fb4-65f9-40d3-a240-e86496e076d0",
 CellID->602059826],
Cell[2448, 72, 180, 2, 17, "Keywords",ExpressionUUID->"ce77ece0-77f7-48ea-a18a-351cb72a4950",
 CellID->6698891],
Cell[2631, 76, 172, 2, 17, "Keywords",ExpressionUUID->"72348e6d-1c94-4c6a-8115-790093e7c84a",
 CellID->24705039],
Cell[2806, 80, 169, 2, 17, "Keywords",ExpressionUUID->"aeaa565b-fcea-44ac-aabb-b7ef0958772e",
 CellID->252641630]
}, Closed]],
Cell[CellGroupData[{
Cell[3012, 87, 120, 1, 17, "TemplatesSection",ExpressionUUID->"f6ebbb7f-0171-4148-beea-70258d37ce61",
 CellID->1872225408],
Cell[3135, 90, 149, 2, 70, "Template",ExpressionUUID->"c35b7501-fedf-4c46-8fd7-2cbce70b30f6",
 CellID->1562036412],
Cell[3287, 94, 137, 2, 70, "Template",ExpressionUUID->"ad9e725e-95fb-4837-b2c6-89052b55b040",
 CellID->158391909],
Cell[3427, 98, 136, 2, 70, "Template",ExpressionUUID->"fc1f91dd-4cd0-4fca-87cc-a3bd9daa9b0a",
 CellID->1360575930],
Cell[3566, 102, 137, 2, 70, "Template",ExpressionUUID->"b40e5d62-ff95-4773-8df6-c9468495eea2",
 CellID->793782254]
}, Closed]],
Cell[CellGroupData[{
Cell[3740, 109, 108, 1, 17, "DetailsSection",ExpressionUUID->"00b6ad75-0ed8-488a-815a-9659e41b6a0c",
 CellID->307771771],
Cell[3851, 112, 200, 3, 31, "Details",ExpressionUUID->"fd89ef1e-8676-41fd-98fc-5629d1d6dbfb",
 CellID->670882175],
Cell[4054, 117, 200, 3, 31, "Details",ExpressionUUID->"7989b311-b189-4def-a2dd-dc0bdaf5e5c2",
 CellID->350963985],
Cell[4257, 122, 193, 3, 31, "Details",ExpressionUUID->"003448c0-c1b6-40c9-8e04-6220e10a48b7",
 CellID->8391405],
Cell[4453, 127, 124, 2, 31, "Details",ExpressionUUID->"4a3b9987-5a4c-4875-8a45-35587751c0fe",
 CellID->3610269],
Cell[4580, 131, 116, 2, 31, "Details",ExpressionUUID->"77cf4199-73b2-439e-b5c9-190d17adef95",
 CellID->401364205],
Cell[4699, 135, 116, 2, 31, "Details",ExpressionUUID->"9616c2d0-2631-4632-bcb0-1a436dcc5508",
 CellID->350204745],
Cell[4818, 139, 118, 2, 31, "Details",ExpressionUUID->"1d85366f-6ae5-4bff-ac61-c6b50f91f234",
 CellID->732958810],
Cell[4939, 143, 133, 2, 31, "Details",ExpressionUUID->"2ddfe4ec-6414-4f7c-bd1f-03601360cc8e",
 CellID->222905350],
Cell[5075, 147, 122, 2, 31, "Details",ExpressionUUID->"2abb0ffb-acf5-420a-8af6-38afbf85fadb",
 CellID->240026365]
}, Closed]],
Cell[CellGroupData[{
Cell[5234, 154, 103, 1, 62, "ObjectName",ExpressionUUID->"723c421a-d2e1-4d52-8c4f-d5f948dea8b2",
 CellID->1224892054],
Cell[5340, 157, 535, 12, 72, "Usage",ExpressionUUID->"3448cde2-467b-495b-a64b-0db4e42f78fe"],
Cell[5878, 171, 460, 8, 51, "Notes",ExpressionUUID->"71545df0-c623-4d14-8ea7-f2949e9fbc22",
 CellID->518458683],
Cell[6341, 181, 631, 9, 79, "Notes",ExpressionUUID->"4e9cdae2-81e7-4d3b-bbf2-dda0302c703c",
 CellID->662563063],
Cell[6975, 192, 736, 17, 40, "Notes",ExpressionUUID->"e8f2210a-4335-47d8-8b98-bac7af4fa035",
 CellID->598962227],
Cell[7714, 211, 408, 7, 51, "Notes",ExpressionUUID->"a6f9b37b-a169-464b-960c-4ec8a78a38dc",
 CellID->484568108],
Cell[8125, 220, 108, 0, 23, "Notes",ExpressionUUID->"412f4263-9b1a-4c30-a202-d00a1a19ed08"],
Cell[8236, 222, 977, 22, 38, "3ColumnTableMod",ExpressionUUID->"7a8c05ae-8eec-410f-9d66-b408363f55cb",
 CellID->552757875]
}, Open  ]],
Cell[CellGroupData[{
Cell[9250, 249, 112, 1, 44, "TutorialsSection",ExpressionUUID->"be1d1757-55ea-470f-9e44-83d2b5849767",
 CellID->250839057],
Cell[9365, 252, 291, 4, 16, "Tutorials",ExpressionUUID->"ffc00b17-e70c-4eae-a8cf-322d9e003cfa",
 CellID->23511089],
Cell[9659, 258, 325, 5, 16, "Tutorials",ExpressionUUID->"0e073265-a9a5-4263-a7fb-cc7c064a792b",
 CellID->189380923],
Cell[9987, 265, 342, 5, 16, "Tutorials",ExpressionUUID->"dcd328b5-1e39-46b3-a5b3-ac78d02b6169",
 CellID->341631938],
Cell[10332, 272, 339, 5, 16, "Tutorials",ExpressionUUID->"6f9febab-f9da-4d71-a732-81635550c5b5",
 CellID->339404089]
}, Open  ]],
Cell[CellGroupData[{
Cell[10708, 282, 138, 1, 31, "RelatedDemonstrationsSection",ExpressionUUID->"6e8fc908-4386-44ec-a9e1-a6a0be3ac930",
 CellID->1268215905],
Cell[10849, 285, 113, 1, 16, "RelatedDemonstrations",ExpressionUUID->"8f43bc21-ed4a-40c4-a813-992cf3f64d24",
 CellID->1129518860]
}, Open  ]],
Cell[CellGroupData[{
Cell[10999, 291, 120, 1, 31, "RelatedLinksSection",ExpressionUUID->"b0e40b65-22f4-4ec4-96b7-50d731a2f37b",
 CellID->1584193535],
Cell[11122, 294, 104, 1, 16, "RelatedLinks",ExpressionUUID->"e4cabe40-4cfa-44a3-aca8-86a189660de2",
 CellID->1038487239]
}, Open  ]],
Cell[CellGroupData[{
Cell[11263, 300, 110, 1, 31, "SeeAlsoSection",ExpressionUUID->"6a115fc7-07e4-442e-ac0a-0fe40ae9b86b",
 CellID->1255426704],
Cell[11376, 303, 783, 20, 18, "SeeAlso",ExpressionUUID->"371cf3a1-d5e8-4c62-a618-be9d3b42d0e6",
 CellID->929782353]
}, Open  ]],
Cell[CellGroupData[{
Cell[12196, 328, 112, 1, 31, "MoreAboutSection",ExpressionUUID->"0e06e99b-ef53-4eb8-befb-563f48d63a90",
 CellID->38303248],
Cell[12311, 331, 101, 1, 16, "MoreAbout",ExpressionUUID->"d57da4a8-c919-4160-b491-7433c430d620",
 CellID->1665078683]
}, Open  ]],
Cell[CellGroupData[{
Cell[12449, 337, 411, 11, 68, "PrimaryExamplesSection",ExpressionUUID->"52e5621c-26e0-4fdd-9cc1-4fd0384c3d8a",
 CellID->880084151],
Cell[12863, 350, 195, 2, 20, "ExampleText",ExpressionUUID->"4a6e9b5e-fdc0-4f39-a699-22f4cf72dbda",
 CellID->492948770],
Cell[13061, 354, 454, 12, 25, "Input",ExpressionUUID->"89bd660b-c8e7-4e19-80f2-870999a17420",
 CellID->263768457],
Cell[13518, 368, 198, 2, 20, "ExampleText",ExpressionUUID->"91230332-2378-4392-b626-0208717b9444",
 CellID->290971360],
Cell[CellGroupData[{
Cell[13741, 374, 318, 7, 25, "Input",ExpressionUUID->"aa8c5160-9f3b-4396-9e4b-e0d5c30ef2c6",
 CellID->236291625],
Cell[14062, 383, 929, 25, 157, "Output",ExpressionUUID->"2dcd797c-b4f6-4376-a949-c6c1143b83d0",
 CellID->99595348]
}, Open  ]],
Cell[15006, 411, 292, 5, 33, "ExampleText",ExpressionUUID->"acff1127-e353-4759-91d1-993141e69238",
 CellID->154406767],
Cell[CellGroupData[{
Cell[15323, 420, 226, 4, 25, "Input",ExpressionUUID->"18d1493d-0e27-49d0-b74b-6fe61441c526",
 CellID->92311424],
Cell[15552, 426, 395, 8, 19, "Message",ExpressionUUID->"4c730447-7d7c-416f-a5ef-8b77289d76c0",
 CellID->446650481]
}, Open  ]],
Cell[15962, 437, 308, 6, 20, "ExampleText",ExpressionUUID->"d4a23074-905e-41a7-929d-84f9cc7868f5",
 CellID->118617733],
Cell[CellGroupData[{
Cell[16295, 447, 275, 5, 25, "Input",ExpressionUUID->"424aa97a-28bd-41ad-9c58-003d22f26b8f",
 CellID->883086245],
Cell[16573, 454, 903, 19, 36, "Output",ExpressionUUID->"e019f114-3ed9-4cb1-9075-13d5ad374203",
 CellID->81755183]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[17525, 479, 155, 2, 54, "ExtendedExamplesSection",ExpressionUUID->"1bc9c754-0891-4819-b0a7-0d284b6b7964",
 CellTags->"ExtendedExamples",
 CellID->1854448968],
Cell[17683, 483, 242, 5, 31, "ExampleSection",ExpressionUUID->"04c246cb-24ce-45af-bcda-c1def297a00b",
 CellID->1293636265],
Cell[17928, 490, 265, 5, 19, "ExampleSection",ExpressionUUID->"05fe0327-86d3-4ce5-85db-34908b5eca39",
 CellID->1020263627],
Cell[CellGroupData[{
Cell[18218, 499, 225, 5, 19, "ExampleSection",ExpressionUUID->"ba85a77d-8fc2-4a16-97d6-793c32c50f77"],
Cell[CellGroupData[{
Cell[18468, 508, 257, 5, 22, "ExampleSubsection",ExpressionUUID->"ddc7ca7e-da51-4eb9-a67d-3fd0bf558304"],
Cell[18728, 515, 265, 5, 20, "ExampleText",ExpressionUUID->"2f8d7f0b-0abe-423c-b594-d3133b4482b4",
 CellID->20045686],
Cell[CellGroupData[{
Cell[19018, 524, 342, 7, 25, "Input",ExpressionUUID->"27d3773e-c3c9-4bc3-b7a8-2514e121ccb1",
 CellID->498345333],
Cell[19363, 533, 572, 11, 49, "Output",ExpressionUUID->"92053f28-dda0-451e-a893-c1110203299a",
 CellID->45103570]
}, Open  ]],
Cell[19950, 547, 250, 4, 20, "ExampleText",ExpressionUUID->"9d777e29-7db4-4a0c-b701-b8057705eaba",
 CellID->111056592]
}, Open  ]]
}, Open  ]],
Cell[20227, 555, 248, 5, 31, "ExampleSection",ExpressionUUID->"ad1166b8-1eab-4f7f-a875-64f69e57d013",
 CellID->258228157],
Cell[20478, 562, 259, 5, 19, "ExampleSection",ExpressionUUID->"d93ee822-b1c1-4ecd-b89e-792e2367bf55",
 CellID->2123667759],
Cell[20740, 569, 252, 5, 19, "ExampleSection",ExpressionUUID->"70837883-65d0-43fb-b327-ed197e377ebf",
 CellID->1305812373],
Cell[20995, 576, 257, 5, 19, "ExampleSection",ExpressionUUID->"fbb39539-f2ec-488d-877c-012475cb905f",
 CellID->1653164318],
Cell[21255, 583, 249, 5, 19, "ExampleSection",ExpressionUUID->"c87e283b-6ede-4258-8940-83d423bda29c",
 CellID->589267740]
}, Open  ]]
}
]
*)

